home *** CD-ROM | disk | FTP | other *** search
/ Headbone Interactive / Headbone_Interactive_CD-ROM_Sampler_1995.iso / pc / demos / pants / intro.dxr / 00103_mouse event handlers.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  550 b   |  18 lines
  1. on handleMouseDown
  2.   global gvQuitSprite, gvVolumeSprite, gvCreditSprite, gvFirstKingSprite, gvBunjiSprite, gvFirstLocaleSprite, gvLastLocaleSprite
  3.   set vClickedSprite to the clickOn
  4.   set vMouseV to the mouseV
  5.   set the mouseDownScript to EMPTY
  6.   cursor(200)
  7.   if vClickedSprite = gvQuitSprite then
  8.     quitPants()
  9.   else
  10.     if (vClickedSprite >= gvFirstKingSprite) and (vClickedSprite <= gvBunjiSprite) then
  11.       handleClickChar(vClickedSprite)
  12.     else
  13.       set the mouseDownScript to "handleMouseDown"
  14.       cursor(0)
  15.     end if
  16.   end if
  17. end
  18.